From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 10 Mar 1994 18:54:44 +0000 (+0000)
Subject: (shell-dynamic-complete-as-command): Make ignored-extensions
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~92766
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=a867a90a321479fd1a9028c6e4eef35d0abe2052;p=emacs.git

(shell-dynamic-complete-as-command): Make ignored-extensions
nil if comint-completion-fignore is nil.
---

diff --git a/lisp/shell.el b/lisp/shell.el
index 33a60fdedd9..369e0ac14d0 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -688,8 +688,9 @@ See `shell-dynamic-complete-filename'.  Returns t if successful."
 	 (paths (cdr (reverse exec-path)))
 	 (cwd (file-name-as-directory (expand-file-name default-directory)))
 	 (ignored-extensions
-	  (mapconcat (function (lambda (x) (concat (regexp-quote x) "$")))
-		     comint-completion-fignore "\\|"))
+	  (and comint-completion-fignore
+	       (mapconcat (function (lambda (x) (concat (regexp-quote x) "$")))
+			  comint-completion-fignore "\\|")))
 	 (path "") (comps-in-path ()) (file "") (filepath "") (completions ()))
     ;; Go thru each path in the search path, finding completions.
     (while paths